home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / nifhand / hp.aut < prev    next >
Encoding:
Text File  |  1993-07-08  |  972 b   |  57 lines
  1. IF (($64=="毎" || $64=="") || ($64==$940 || $64==$941)) || ((($64==$942 || $64==$947) || ($64==$948 || $64==$949)) || $64==$950)
  2.  if findfirst("$900:\\HP\\*.*")==""
  3.  CMD ! "MD $900:\\HP"
  4.  endif
  5.  ECHO "^Gこれよりホームパーティにまいります＞"
  6. ELSE
  7.  GOTO E
  8. ENDIF
  9.  
  10. CALL HP
  11. CALL DOWN
  12.  
  13. PROC HP
  14. SEND "GO HP\r",1
  15. WAIT "^J＞"
  16. SEND "1\r",1
  17. WAIT "^JID (改行のみ：自分のHP)"
  18. WAIT "^J："
  19. IF $60=="自分のもの"
  20.  $60=""
  21. ENDIF
  22. SEND "$60\r",1
  23. LOOK
  24. CASE "該当する利用者の"
  25.   WAIT "^J＞"
  26.   ECHO "ちょっとぉ、どうなってんのよぉ\r"
  27.   END
  28. CASE "^JあなたはまだHome Partyを"
  29.   WAIT "^J："
  30.   ECHO "^G タコ～ ＞"
  31.   SEND "N\r",1
  32.   WAIT "^J＞"
  33.   END
  34. CASE "^Jパスワード"
  35.   WAIT "^J："
  36.   SEND "$61\r",1
  37.   WAIT "^JHP>"
  38. CASE "^JHP>"
  39. FREE
  40. SEND "SET PAGE OFF\r",1
  41. WAIT "^JHP>"
  42. IF $60==""
  43.  $60="MYHP"
  44. ENDIF
  45. ENDPROC
  46.  
  47. PROC DOWN
  48. CMD D "$900:\\HP\\$60.$944"
  49. SEND "REA NEW\r",1
  50. WAIT "^JHP>"
  51. CMD D
  52. ENDPROC
  53.  
  54. LABEL E
  55. $60=$61=$64=""
  56. END
  57.